Le INTRODUCTION 


The APPLE LOADER is a tool used to aid in transporting 
software between APPLE & COMMODORE. Only micro basic words 
supported by both manufacturers will successfully transfer. 
This is not to say you cannot transfer certain words and, as 
will see, intrinsic APPLE basic is listable on COMMODORE but 
not executable. 


II. INSTALLATION 


ies Turn power off on both machines. 


ais Remove lid from APPLE and install card in slot 2 with 
INTERDESIGN logo closest to keyboard. Replace lid. 


Sis Insert edge connector with black down to COMMODORE user 


port. For series 4032, 8032, & sp9000 use middle port. For 
Vic20(TM) & C64(TM) use right port (while facing real). 


III. OPERATION 
ise A small piece of code is needed in each machine to make 
transferring possible. There are two basic programs supplied, 


that when executed write their own machine level program. 


2s After you 'run' both programs type in 'new' on_ both 
machines. 


a Load basic program to be transferred in APPLE. 


4. Type in 'call 9*4096' on APPLE (The transmitter is 
always initiated first). 


Bie Type in 'sys 7*4096' on COMMODORE and watch process in 
action. If program not present on both screens, repeat 
instructions. 


Note: Lines over 80 characters must be hand edited. 


APPLE is a registered trademark of APPLE Computer, Inc. 
COMMODORE is a registered trademark of COMMODORE Business 
Machines, Inc. 
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100 home 

110 text:inverse 

120 nem **** apple transier ***** 

150 fem *** appodore *** 

160 rem KREKKEKKKEKEKKKEKKKEKKEKKEKEKKEE 

170 ch=44838 

500 print"loading program into ram":print 

510 normal:print"please wait ....... 

600 fori=0to0331:readd:poke36864+i ,d:dc=dc+d:next 

700 Gatale6’ , 255,141 ,163,192,169,1,133,0,169,8 ,133,1,160,0;,i477 
TRE Gated ,133 221,200,177 ,6 133,122,200, 1770 1332117; 200,377 
720 datag i33, 116 ,200,132, 2,208 ,48,162,0,189,0,1,240,11 

730 datal57,0,3,169,0,157,0,1,232,208,240,164,2,177,0,240, 26,201 
740 datal27,176),7,157,0,3,232,200, 208 ,241,200,132,2,134,237,208 
750 datal0,208,230,240,184,208,182,208,96,240,102,170,160,207 
760 datal32,157,160,208,132,158,160,0,30,240,15,202,16;,12,230,157 
770 data208,2,230,158,177,157,16,246,48,241,160,0,166,237 

ae GataZz02,232,200,177,157,157,0,3,48,2, 208, 245,233,128 

790 datal57 ,0,3,232,134,237%, 208,16 7, 209,147,240 ,189, 208,187 

800 datared, 0,185, 56,beee7ayt2eys2; 2 407255, 200, 192,82, 208,245,169 
S10.datay,141,16),192,169,224,141,172,192,169,192,141,172,192 
820 data76,58,255,208,98,208,213,208,213,240,211,72,200,200 

830 datal77,0,240,3,104,240,3,104,169,7,157,0,3,134,237,162 

840 data0,189,0,3,73,128,32,240,253,232,228 ,237,144,243,169,13 
So data73,128:,32,240,253,160,255,200,185,0,3,141, 163 ,3592 

860 data72,169,224,141,172,192,169,192,141,172,192,173,173,192 
870 data41,2,240,249,104,201,7,240,143,201,0,208,222,165,122,240 
8860 datal35,1335,1,165,121,133,0,208,164,240,162,208,158,162,0,269 
S90 data6s,113 ,240,8, 73,,128,,32,.280, 253 ,292, 208,243 532 »32 

900 data237,169,13,73,128,32,240,253,208,227,74,79,66,32 

910 datat7,79,77,80,76,69,84,69,76,73,/8,69,32,35,32,0 

999 home 

1000 ifch=dcthenprint"check sum o.k. !!":gotol200 

1100 inverse:print"checksum error “:normal:print"data = "dc 

1150 inverse:print"should be ";:normal:printch:stop 

1200 print"type 'new' then <return>" 

1205 inverse:print"if this program has been saved" 

1210 normal:print"load program to be transfered to cbm" 

1220 print"make sure the interface card is in slot # 2 " 

1230 print"and the other end is connected to the user port on the cbm" 
1250 print"type ‘call 9*4096'" then <return>" 

1260 print"type sys7*4096 then <return> on the cbm" 

1270 print"and watch ‘um go !!!" 


230 
240 
250 
260 
270 
280 
read 


LEM KKKKKKKEKKKKEKE cbm loader KHEKKKKEKKEKKKKEKE 


rem *** (c) appodore taiicthes 
LOM KERR KKKKKKKKKEKKEKEKKEEKEKKEKEKKEKEKEKKEKKEKERKEKEKEEEE 
rem for cbm 4.0 65xx series computers 
print"3"tab(25)" loading program into ram " 
pLintsprinttab(25)™ please wait ...... ":check sum = 23664 
fori=0tol78:readd:poke28672+i,d:dc=dctd:next :rem 28672 = 7*4096 
data 169,0,141,67,232,169,76,133,121,169,106,133,122,169,112,133 
Gatay L23G169.,0,.133,, 52, Loo, LI p35 753 O2y0, 11s pOoe2 sey lor ll 
data 2,72,169,224,141,76,232,169,192,141,76,232,173,77,232,41 
data 2,72,32,225,255,104,240,244,232,104,201,7,240,29,201,0 
cata 206,217 5169,13, 157 bil, 2.232,160,0,265,173,2312,157 711152 
data 232, 200,192,2,208 , 244,134,158, 76,6,180 ,157,111,2,232 ,169 
data 13,157,111,2,232,134,158,76,6,180,201,160,240,35,201,75 
data 240,3,76, 562,211 , #292627 72 150-4, 1775.119, 217,175,112, 208 
data 10,200,192,3,208,244,217,175,112,240,9,104,168,104,76,162 
data. 2)3.,.76%25,112,169, 201 -433 1217269 , 58,133,122, 169,176,133 
gata 123,104,104, 230,119,230,119,230,119,230,119,76,162,211,160 
date 13,75; 73, topre 
ifch=dcthenprint"3check sum 2 o.k. !!"sgoto220 
print"check sum error 2 data =" dc:print"should be " ch:stop 


print:print"Type ‘new’ then <RETURN> ,if this program has been saved" 


print"After the Apple Transfer Program is running 

print"Type ‘sys 7*4096' <RETURN> 

print"The Apple program should start listing onto both screens 
print"Note ... Before attempting to do any editing 

print"Type 'kill' then <RETURN> to kill the A-C special editor 
print"Have fun !!!!!1!! 

Ye 
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rem KKEKKK 64 loader KReKKKKK 
rem *****k* (c) appodore KKEKKE 
rem KREKKKEKEKKEKEKKEKKKEKKKEKKKKKKKEEEE 
rem for model 64 cbm computers 
print"3"tab(7)" loading program into ram 
Dini sprint tab(7)” please wait ...... ":check sum = 46020 
poke53281,1: rem white screen 
fori=0to0336:readd:poke28672+i,d:dc=dc+d:next:rem 28672 = 7*4096 
data 169,0,141,3,221,169, 76,133,124,1697149,133,125,169,112,133 
data 126,169 07133555 ,169 41 2,,133,56,169, 21,133 7-251, 169,,i33, 233 
Gata 2527,160,0,169,,0,148,251 , 200,208, 251 ,169,13,32, 210, 255,162 
date. 0,173 ,1 224,157,890 ,114 ,72,169;,151,141,0, 221,169, 167 , 14% 0 
data 221,173,13,221,41,16,72,32,225,255,104,240,244,232,104 
data 201 ,-/,208,8.,.169,0, 202,157,609 ,114, 206 , 32,207 0,208 

data. .209; 32) 220 pio MOR dey LOW plop bod ple Oy ap eons LOU yO pac 

data JL 113,157 (118 2,232,200 , 192727208 244,134, 198790 7392 

Gata 226,122,162; 1 ,1697137157, 1198427232, 169,17 ,157,718;2 

data 232,169,13,157,118,2,134,198,96,201,160,240,49,201,75 

data 240, 7,201 ,68,240,3,76,171,227,72,152,72,160,0,177 

data 122,217 )/ 1 gldompetUy 7 2 pay S27 oO Ope OU gto egy loe 

data 239,227)76,113,240,110y217, 727113,/240,9,104,168%104,76 

Setaslt1 -227,76,42,112,169,153,133,125, 169,112,133, 126,104,202 

date. 230,122,230,122,230,122,230,122,76,171 , 227,224, 78,144;32 

data 160,05.162,0,189,60, 114,201,538 ,376,11,,145 251 ,230,,2517 205 ,2 

data 230,252,232, 208,238,169,0,145,251 ,230,251,208,2,230, 252 
data 160,0,169,145,32,210,255,185,80,114,240,8, 32,210, 255,200 
data 192,78, 208,243,192,39,234¢,5,169, 145 ,32,210,255, 169 

data 145,32, 210,255,169 ,145,76, 210,255, 160,,0,185,81,113,240,,6 
data 32,210,255,200,208,245,169,13,32,210,255,200,185,81,1123 
data 240,144,208,232,160,13,75,73,76,76,68,85,/77,80 

ifch=dcthenprint"3check sum 2 o.k. !!":goto330 

print"check sum error 2 data =" dc:print"should be " ch:stop 

print:print"Type 'new' then <RETURN>" 

print"if this program has been saved":print 

print"After the Apple Transfer Program":print"is running 
print"Type 'sys 7*4096' <RETURN> 

print"The Apple program should start listing":print"onto both screens 
print"Note ... Before attempting to do any":print"editing ... 
print"Type 'kill' then <RETURN> to kill the":print"A-C special editor 
print"Have fun !!!!!!! 


ready. 


